home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Bestellung.inbpri < prev    next >
Text File  |  1999-03-27  |  13KB  |  584 lines
  1. 1$VER: Bestellung 1.08 (28.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (28.03.1999)
  5. %%Version: 1.08
  6. %%Title: (MT-RechnungIII - Bestellung)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 60 def
  22. /DokumentRandY 45 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42. /DokumentRandYOriginal DokumentRandY def
  43. %%EndSetup
  44.  
  45. %%BeginnResource
  46. /reencodedict 5 dict def
  47. /ReEncode
  48. {
  49.      reencodedict begin
  50.      /newencoding exch def
  51.      /newfontname exch def
  52.      /basefontname exch def
  53.  
  54.      /basefontdict basefontname findfont def
  55.  
  56.      /newfont basefontdict maxlength dict def
  57.  
  58.      basefontdict
  59.      { exch dup dup /FID ne exch /Encoding ne and
  60.           { exch newfont 3 1 roll put }
  61.           { pop pop }
  62.           ifelse
  63.      } forall
  64.      newfont /FontName newfontname put
  65.      newfont /Encoding newencoding put
  66.      newfontname newfont definefont pop
  67.      end
  68. } def
  69.  
  70. /ISOLatin8Encoding
  71. [
  72.     ISOLatin1Encoding 0 164 getinterval aload pop
  73.     /euro
  74.     ISOLatin1Encoding 165 91 getinterval aload pop
  75. ] def
  76. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  77. %%EndResource
  78.  
  79. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  80. /Times28 28 /OF0 /Times-Roman /OF0 getfont
  81. /Times28Line 28 def
  82. /Times14 14 /OF0 /Times-Roman /OF0 getfont
  83. /Times14Line 14 def
  84. /Times10 10 /OF0 /Times-Roman /OF0 getfont
  85. /Times10Line 10 def
  86. /Times8 8 /OF0 /Times-Roman /OF0 getfont
  87. /Times8Line 8 def
  88. Times14 setfont
  89.  
  90. /ZWDokumentRand DokumentRandY def
  91. /Seite 1 def
  92. /SeitenNr 4 string def
  93.  
  94. DokumentRandX DokumentRandY moveto
  95. DruckDatum 0 get dup stringwidth
  96. pop 486 exch sub
  97. DokumentRandX add DokumentRandY moveto show
  98.  
  99. %% Ausgab des Dokuments
  100. NiedAdresse3
  101. {
  102.     DokumentRandX ZWDokumentRand moveto
  103.     show
  104.     ZWDokumentRand Times14Line sub /ZWDokumentRand exch def
  105. } forall
  106.  
  107. /Position 0 def
  108. DokumentRandY 110 sub /DokumentRandY exch def
  109.  
  110. Times28 setfont
  111. DokumentRandX DokumentRandY moveto
  112. (Bestellung) dup stringwidth
  113. pop 486 exch sub
  114. DokumentRandX add DokumentRandY moveto show
  115.  
  116. Times8 setfont
  117. Times8 /FontInfo known
  118. {
  119.     Times8 /FontInfo get dup dup dup /UnderlinePosition known
  120.     {
  121.         /UnderlinePosition get
  122.         Times8Line mul 1000 div cvi /Unterstreichabstand exch def
  123.     }
  124.     {
  125.         Times8Line -9 div cvi /Unterstreichabstand exch def
  126.         pop
  127.     } ifelse
  128.     /UnderlineThicknes known
  129.     {
  130.         /UnderlineThicknes get
  131.         Times8Line mul /Unterstrichdicke exch def
  132.     }
  133.     {
  134.         Times8Line 24 div /Unterstrichdicke exch def
  135.         pop
  136.     } ifelse
  137. }
  138. {
  139.     Times8Line -9 div cvi /Unterstreichabstand exch def
  140.     Times8Line 24 div /Unterstrichdicke exch def
  141.     pop
  142. } ifelse
  143.  
  144. NiedAdresse1
  145. {
  146.     newpath
  147.     DokumentRandX DokumentRandY Unterstreichabstand add moveto
  148.     stringwidth pop DokumentRandX add DokumentRandY Unterstreichabstand add
  149.     lineto closepath Unterstrichdicke setlinewidth
  150.     stroke
  151.     DokumentRandX DokumentRandY moveto
  152.     NiedAdresse1 Position get show
  153.     DokumentRandY Times8Line sub /DokumentRandY exch def
  154.     Position 1 add /Position exch def
  155. } forall
  156.  
  157. 0.5 setlinewidth
  158.  
  159. Times14 setfont
  160.  
  161. DokumentRandY Times14Line sub /DokumentRandY exch def
  162. LiefAdresse3
  163. {
  164.     DokumentRandX DokumentRandY moveto
  165.     show
  166.     DokumentRandY Times14Line sub /DokumentRandY exch def
  167. } forall
  168.  
  169. DokumentRandY 50 sub /DokumentRandY exch def
  170.  
  171. DokumentRandX DokumentRandY moveto
  172. (Unsere KundenNr.:) show
  173. DokumentRandX 120 add DokumentRandY moveto
  174. LiefKundenNrLieferant show
  175. DokumentRandY Times14Line sub /DokumentRandY exch def
  176.  
  177. DokumentRandX DokumentRandY moveto
  178. (Bestelldatum:) show
  179. DokumentRandX 120 add DokumentRandY moveto
  180. ERBestellDatum 0 get show
  181. DokumentRandY Times14Line sub /DokumentRandY exch def
  182.  
  183. DokumentRandX DokumentRandY moveto
  184. (Mitarbeiter:) show
  185. DokumentRandX 120 add DokumentRandY moveto
  186. BesVorname show
  187. ( ) show
  188. BesName show
  189. DokumentRandY Times14Line sub 20 sub /DokumentRandY exch def
  190.  
  191. 0 /Position exch def
  192. Times10 setfont
  193.  
  194. /Ueberschrift {
  195. /BoxX1 DokumentRandX def
  196. /BoxX2 486 def
  197. /BoxY1 DokumentRandY 2 sub Times10Line sub def
  198. /BoxY2 Times10Line Times10Line add def
  199.  
  200. 0.9 setgray
  201. BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  202. 0.0 setgray
  203. BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  204.  
  205. DokumentRandX 3 add DokumentRandY moveto
  206. (Artikel) show
  207.  
  208. DokumentRandX DokumentRandY moveto
  209. (Anzahl) dup stringwidth
  210. pop 80 exch sub
  211. DokumentRandX add DokumentRandY moveto show
  212.  
  213. DokumentRandX 85 add DokumentRandY moveto
  214. (Artikelbezeichnung) show
  215.  
  216. DokumentRandX 280 add DokumentRandY moveto
  217. (Einheit) show
  218.  
  219. DokumentRandX DokumentRandY moveto
  220. (MWSt) dup stringwidth
  221. pop 360 exch sub
  222. DokumentRandX add DokumentRandY moveto show
  223.  
  224. DokumentRandX DokumentRandY moveto
  225. (Einzelpreis) dup stringwidth
  226. pop 420 exch sub
  227. DokumentRandX add DokumentRandY moveto show
  228.  
  229. DokumentRandX DokumentRandY moveto
  230. (Summe) dup stringwidth
  231. pop 486 exch sub
  232. DokumentRandX add DokumentRandY moveto show
  233.  
  234.  
  235. DokumentRandY Times10Line sub /DokumentRandY exch def
  236.  
  237. DokumentRandX 85 add DokumentRandY moveto
  238. (Zu-/Abschlagsbezeichnung) show
  239.  
  240. DokumentRandX DokumentRandY moveto
  241. (-wert/%) dup stringwidth
  242. pop 360 exch sub
  243. DokumentRandX add DokumentRandY moveto show
  244.  
  245. DokumentRandX DokumentRandY moveto
  246. (-betrag) dup stringwidth
  247. pop 420 exch sub
  248. DokumentRandX add DokumentRandY moveto show
  249.  
  250. DokumentRandY Times10Line sub 5 sub /DokumentRandY exch def
  251. } def
  252.  
  253. Ueberschrift
  254.  
  255. /ZuAbPos 115 def
  256. ERZuAbNr
  257. {
  258.     0 ne
  259.     {
  260.         ZuAbPos Times14Line add /ZuAbPos exch def
  261.     } if
  262. } forall
  263.  
  264. ZuAbPos 115 ne
  265. {
  266.     ZuAbPos 5 add /ZuAbPos exch def
  267. } if
  268.  
  269. /Zaehler ZuAbPos def
  270.  
  271. ERMWStBel
  272. {
  273.     {
  274.         Zaehler Times14Line add /Zaehler exch def
  275.     } if
  276. } forall
  277.  
  278. Zaehler ZuAbPos ne
  279. {
  280.     Zaehler 5 add /Zaehler exch def
  281. } if
  282.  
  283. /MWStPos Zaehler def
  284.  
  285. MWStPos Times14Line add 5 add /VersandPos exch def
  286.  
  287. /BemerkungPos VersandPos def
  288.  
  289. /BemerkungZeilen ERBemerkung length def
  290. BemerkungZeilen 0 ne
  291. {
  292.     BemerkungZeilen Times14Line mul cvi 5 add BemerkungPos add
  293.     /BemerkungPos exch def
  294. } if
  295.  
  296. ERPositionen
  297. {
  298.     /pos exch def
  299.  
  300.     %% Länge der Position ermitteln
  301.     pos 0 get 4 get length 1 add
  302.     pos 1 get 16 get length add
  303.     pos 1 get 11 get
  304.     {
  305.         0 ne
  306.         {
  307.             1 add
  308.         } if
  309.     } forall
  310.     Times10Line mul cvi 5 add
  311.     /Poslength exch def
  312.  
  313.     %% Mal schaun, ob noch genügend Platz ist, auf der Seite
  314.     60 DokumentRandY Poslength sub gt
  315.     {
  316.         Seite 1 add /Seite exch def
  317.         DokumentRandX 200 add 50 moveto
  318.         (Weiter auf Seite: ) show
  319.         Seite SeitenNr cvs show
  320.         showpage
  321.         /DokumentRandY DokumentRandYOriginal def
  322.         DokumentRandX 200 add DokumentRandY moveto
  323.         (Fortsetzung von Seite: ) show
  324.         Seite 1 sub SeitenNr cvs show
  325.         DokumentRandY Times10Line sub Times10Line sub /DokumentRandY exch def
  326.         Ueberschrift
  327.     } if
  328.  
  329.     %% Artikelnummer
  330.     DokumentRandX 3 add DokumentRandY moveto
  331.     pos 1 get 1 get show
  332.  
  333.     %% Menge/Anzahl
  334.     DokumentRandX DokumentRandY moveto
  335.     pos 1 get 2 get dup stringwidth
  336.     pop 80 exch sub
  337.     DokumentRandX add DokumentRandY moveto show
  338.  
  339.     %% Artikelbezeichnung
  340.     DokumentRandX 85 add DokumentRandY moveto
  341.     pos 0 get 3 get show
  342.  
  343.     %% Mengeneinheit
  344.     DokumentRandX 280 add DokumentRandY moveto
  345.     pos 0 get 5 get show
  346.  
  347.     %% MWSt-Prozentsatz
  348.     DokumentRandX DokumentRandY moveto
  349.     pos 1 get 8 get dup stringwidth
  350.     pop 360 exch sub
  351.     DokumentRandX add DokumentRandY moveto    show
  352.  
  353.     %% Einzelpreis
  354.     DokumentRandX DokumentRandY moveto
  355.     pos 1 get 3 get ERWaehrung get dup stringwidth
  356.     pop 420 exch sub
  357.     DokumentRandX add DokumentRandY moveto show
  358.  
  359.     %% Artikelzusatztext
  360.     pos 0 get 4 get
  361.     {
  362.         DokumentRandY Times10Line sub /DokumentRandY exch def
  363.         DokumentRandX 85 add DokumentRandY moveto show
  364.     } forall
  365.  
  366.     %% Bemerkung
  367.     pos 1 get 16 get
  368.     {
  369.         DokumentRandY Times10Line sub /DokumentRandY exch def
  370.         DokumentRandX 85 add DokumentRandY moveto show
  371.     } forall
  372.  
  373.     /ZuAbNr 0 def
  374.     %% Zu-/Abschläge
  375.     pos 1 get 11 get
  376.     {
  377.         0 ne
  378.         {
  379.             DokumentRandY Times10Line sub /DokumentRandY exch def
  380.             DokumentRandX 85 add DokumentRandY moveto
  381.             %% Bezeichnung
  382.             pos 1 get 13 get ZuAbNr get show
  383.             %% Einzel